home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Uptime_The_Disk_Monthly_V1_07_19xx_Uptime_staff_Side_B.d64 / hughes' ware (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  94 lines
  1. 10 print"[147][155]"chr$(8)chr$(14):poke53280,0:poke53281,0
  2. 20 gosub1000
  3. 30 gosub1300
  4. 35 get k$: if k$<>chr$(13) then 35
  5. 40 gosub1400
  6. 45 get k$: if k$<>chr$(13) then 45
  7. 50 gosub1500
  8. 55 get k$: if k$<>chr$(13) then 55
  9. 60 gosub1600
  10. 65 get k$: if k$<>chr$(13) then 65
  11. 70 gosub1700
  12. 75 get k$: if k$<>chr$(13) then 75
  13. 99 sys(8*4096)+4
  14. 1000 print"";
  15. 1010 print"[155][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  16. 1020 print"[221][153]                                      [155][221]";
  17. 1030 print"[221][153]      [211]oftware from [208]hilip [200]ughes     [155][221]";
  18. 1040 print"[221][153]                                      [155][221]";
  19. 1050 print"[155][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  20. 1060 gosub1200
  21. 1065 print"";
  22. 1070 print"[155][171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
  23. 1075 print"[221][153]                                      [155][221]";
  24. 1080 rem  print"[221][153] [198]or more information or to order:    [155][221]";
  25. 1090 print"[221][153]       [208]hilip [200]ughes [211]oftware         [155][221]";
  26. 1100 print"[221][153]       11910 [212]horoughbred #110        [155][221]";
  27. 1110 print"[221][153]       [200]ouston, [212][216]  77065             [155][221]";
  28. 1114 print"[221][153]       (713) 955-9084                 [155][221]";
  29. 1115 print"[221][153]                                      [155][221]";
  30. 1120 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157]"chr$(148)"[192]";
  31. 1125 print"";
  32. 1130 return
  33. 1200 print"";
  34. 1205 forx=1to12
  35. 1210 print"[155][221][159]                                     [155][221][159][157]"chr$(148)" "
  36. 1220 next
  37. 1225 print"";
  38. 1230 return
  39. 1300 printspc(12)"[159][215]ord [205]aster 128"
  40. 1310 printspc(5)"[193]n easy-to-use yet powerful word"
  41. 1320 print"processor for the [195]128, capable of"
  42. 1330 print"providing professional documents for"
  43. 1340 print"home and business.  [215]ord [205]aster has"
  44. 1360 print"over 60 features, including full"
  45. 1370 print"screen editing, search and replace,"
  46. 1380 printspc(7)"[208]ress  [210][197][212][213][210][206] [159] to [195]ontinue";
  47. 1390 return
  48. 1400 gosub 2000
  49. 1410 print"[159]block copy and move, underlining,"
  50. 1420 print"bold face type, subscripts and"
  51. 1430 print"superscripts, plus many others."
  52. 1440 printspc(5)"[201]f you are tired of hundred page"
  53. 1450 print"manuals, this word processor is for"
  54. 1460 print"you.  [215]ord [205]aster 128, only  $9.95 [159]"
  55. 1470 print"plus $2.00 for shipping."
  56. 1480 printspc(7)"[208]ress  [210][197][212][213][210][206] [159] to [195]ontinue";
  57. 1490 return
  58. 1500 gosub2000
  59. 1510 printspc(13)"[159][215]ord[205]aster 64"
  60. 1520 printspc(5)"[193] simple yet easy-to-use word"
  61. 1530 print"processor for the [195]64, providing"
  62. 1540 print"full screen editing, search and"
  63. 1550 print"replace, insert and delete, plus"
  64. 1560 print"many, many more.  [215]ord[205]aster 64"
  65. 1570 print"is also the only word processor that"
  66. 1580 printspc(7)"[208]ress  [210][197][212][213][210][206] [159] to [195]ontinue";
  67. 1590 return
  68. 1600 gosub2000
  69. 1610 print"[159]is able to work with [205]ike [203]onshak's"
  70. 1620 print" [196]atafile 64 [159]."
  71. 1630 printspc(5)"[215]ord[205]aster 64 has the ability"
  72. 1640 print"to merge up to 25 different fields"
  73. 1650 print"of information into any document"
  74. 1660 print"and at any location within the"
  75. 1670 print"document.  [201]ts merging capabilities"
  76. 1680 printspc(7)"[208]ress  [210][197][212][213][210][206] [159] to [195]ontinue";
  77. 1690 return
  78. 1700 gosub2000
  79. 1710 print"[159]are easy and very powerful.  [211]ince"
  80. 1720 print"other support programs are in"
  81. 1730 print"existence, it could also merge"
  82. 1740 print"information from other databases"
  83. 1750 print"such as [196]atamanager or [208]ocketfile."
  84. 1760 print"[215]ord[205]aster 64, for only  $19.95 [159]"
  85. 1770 print"plus $2.00 for shipping."
  86. 1780 printspc(8)"[208]ress  [210][197][212][213][210][206] [159] to [213]p[212]ime";
  87. 1790 return
  88. 2000 print"";
  89. 2010 forx=1to12
  90. 2020 print"[159]                                      [155]"
  91. 2030 next
  92. 2040 print"";
  93. 2050 return
  94.